home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / nan_hwg.inc < prev    next >
Encoding:
Text File  |  1998-07-25  |  3.1 KB  |  209 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    éΓéτéΩüAâKü[âh
  6. *    Åƒé┐â|ü[âY
  7. *
  8. *    by Shiroh Nakaya
  9. *
  10. *---------------------------------------
  11. nan_hit:
  12.     move.w    C_X(a1),d1
  13.     move.w    C_Y(a1),d2
  14.     subq.w    #8,d1
  15.     subi.w    #32,d2
  16.     tst.w    C_LR_F(a1)
  17.     bne    @f
  18.  
  19.     addi.w    #$000c,d7
  20.     move.w    d1,(a6)+
  21.     move.w    d2,(a6)+
  22.     move.w    d7,(a6)+
  23.     move.w    #$0003,(a6)+
  24.  
  25.     addi.w    #16,d2
  26.     addq.w    #1,d7
  27.     move.w    d1,(a6)+
  28.     move.w    d2,(a6)+
  29.     move.w    d7,(a6)+
  30.     move.w    #$0003,(a6)+
  31.  
  32.     addi.w    #16,d2
  33.     addq.w    #1,d7
  34.     move.w    d1,(a6)+
  35.     move.w    d2,(a6)+
  36.     move.w    d7,(a6)+
  37.     move.w    #$0003,(a6)+
  38.  
  39.     addi.w    #16,d2
  40.     addq.w    #1,d7
  41.     move.w    d1,(a6)+
  42.     move.w    d2,(a6)+
  43.     move.w    d7,(a6)+
  44.     move.w    #$0003,(a6)+
  45.  
  46.     rts
  47. @@:
  48.     addi.w    #$400c,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d2
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     addi.w    #16,d2
  69.     addq.w    #1,d7
  70.     move.w    d1,(a6)+
  71.     move.w    d2,(a6)+
  72.     move.w    d7,(a6)+
  73.     move.w    #$0003,(a6)+
  74.  
  75.     rts
  76. *---------------------------------------
  77. nan_win:
  78.     move.w    C_X(a1),d1
  79.     move.w    C_Y(a1),d2
  80.     subq.w    #8,d1
  81.     subi.w    #32,d2
  82.     tst.w    C_LR_F(a1)
  83.     bne    @f
  84.  
  85.     addi.w    #$0010,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     addi.w    #16,d2
  92.     addq.w    #1,d7
  93.     move.w    d1,(a6)+
  94.     move.w    d2,(a6)+
  95.     move.w    d7,(a6)+
  96.     move.w    #$0003,(a6)+
  97.  
  98.     addi.w    #16,d2
  99.     addq.w    #1,d7
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d7,(a6)+
  103.     move.w    #$0003,(a6)+
  104.  
  105.     addi.w    #16,d2
  106.     addq.w    #1,d7
  107.     move.w    d1,(a6)+
  108.     move.w    d2,(a6)+
  109.     move.w    d7,(a6)+
  110.     move.w    #$0003,(a6)+
  111.  
  112.     rts
  113. @@:
  114.     addi.w    #$4010,d7
  115.     move.w    d1,(a6)+
  116.     move.w    d2,(a6)+
  117.     move.w    d7,(a6)+
  118.     move.w    #$0003,(a6)+
  119.  
  120.     addi.w    #16,d2
  121.     addq.w    #1,d7
  122.     move.w    d1,(a6)+
  123.     move.w    d2,(a6)+
  124.     move.w    d7,(a6)+
  125.     move.w    #$0003,(a6)+
  126.  
  127.     addi.w    #16,d2
  128.     addq.w    #1,d7
  129.     move.w    d1,(a6)+
  130.     move.w    d2,(a6)+
  131.     move.w    d7,(a6)+
  132.     move.w    #$0003,(a6)+
  133.  
  134.     addi.w    #16,d2
  135.     addq.w    #1,d7
  136.     move.w    d1,(a6)+
  137.     move.w    d2,(a6)+
  138.     move.w    d7,(a6)+
  139.     move.w    #$0003,(a6)+
  140.  
  141.     rts
  142. *---------------------------------------
  143. nan_g:
  144.     move.w    C_X(a1),d1
  145.     move.w    C_Y(a1),d2
  146.     subq.w    #8,d1
  147.     subi.w    #32,d2
  148.     tst.w    C_LR_F(a1)
  149.     bne    @f
  150.  
  151.     addi.w    #$0014,d7
  152.     move.w    d1,(a6)+
  153.     move.w    d2,(a6)+
  154.     move.w    d7,(a6)+
  155.     move.w    #$0003,(a6)+
  156.  
  157.     addi.w    #16,d2
  158.     addq.w    #1,d7
  159.     move.w    d1,(a6)+
  160.     move.w    d2,(a6)+
  161.     move.w    d7,(a6)+
  162.     move.w    #$0003,(a6)+
  163.  
  164.     addi.w    #16,d2
  165.     addq.w    #1,d7
  166.     move.w    d1,(a6)+
  167.     move.w    d2,(a6)+
  168.     move.w    d7,(a6)+
  169.     move.w    #$0003,(a6)+
  170.  
  171.     addi.w    #16,d2
  172.     addq.w    #1,d7
  173.     move.w    d1,(a6)+
  174.     move.w    d2,(a6)+
  175.     move.w    d7,(a6)+
  176.     move.w    #$0003,(a6)+
  177.  
  178.     rts
  179. @@:
  180.     addi.w    #$4014,d7
  181.     move.w    d1,(a6)+
  182.     move.w    d2,(a6)+
  183.     move.w    d7,(a6)+
  184.     move.w    #$0003,(a6)+
  185.  
  186.     addi.w    #16,d2
  187.     addq.w    #1,d7
  188.     move.w    d1,(a6)+
  189.     move.w    d2,(a6)+
  190.     move.w    d7,(a6)+
  191.     move.w    #$0003,(a6)+
  192.  
  193.     addi.w    #16,d2
  194.     addq.w    #1,d7
  195.     move.w    d1,(a6)+
  196.     move.w    d2,(a6)+
  197.     move.w    d7,(a6)+
  198.     move.w    #$0003,(a6)+
  199.  
  200.     addi.w    #16,d2
  201.     addq.w    #1,d7
  202.     move.w    d1,(a6)+
  203.     move.w    d2,(a6)+
  204.     move.w    d7,(a6)+
  205.     move.w    #$0003,(a6)+
  206.  
  207.     rts
  208. *---------------------------------------
  209.